home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 31 / CD Expert nº 31 Unreal Mission Pack I.iso / PetWings / petwings.exe / PetWings.exe / RCDATA / 166 < prev    next >
Text File  |  1999-08-04  |  971b  |  95 lines
  1. //-------- BIRD (LARGE) --------
  2.  
  3. SET_BULLET_OFFSET 0,4
  4.  
  5. LABEL 1
  6.  
  7. REPEAT 5
  8.   INCR_FRAME
  9.   STOP 4
  10.   INCR_FRAME
  11.   STOP 4
  12. REPEAT_END
  13.  
  14. // Jumping up
  15. GOSUB 3
  16. // Attack
  17. GOSUB 5
  18. // Jumping down
  19. GOSUB 4
  20.  
  21. REPEAT 2
  22.   INCR_FRAME
  23.   STOP 4
  24.   INCR_FRAME
  25.   STOP 4
  26. REPEAT_END
  27.  
  28. GOTO_LABEL 1
  29.  
  30. //-------- Jumping Up (10 steps)
  31. LABEL 3
  32.  
  33. SET_FRAME 1
  34. DIRECTION 8
  35. SPEED 16
  36. MOVE 2
  37. SPEED_PERCENT 50
  38. MOVE 2
  39. SPEED_PERCENT 50
  40. MOVE 2
  41. SPEED_PERCENT 50
  42. MOVE 2
  43.  
  44. STOP 2
  45.  
  46. RETURN
  47.  
  48. //-------- Jumping Down (10 steps)
  49. LABEL 4
  50.  
  51. SET_FRAME 0
  52. DIRECTION 24
  53. SPEED 16
  54. MOVE 2
  55. SPEED_PERCENT 50
  56. MOVE 2
  57. SPEED_PERCENT 50
  58. MOVE 2
  59. SPEED_PERCENT 50
  60. MOVE 2
  61.  
  62. STOP 2
  63.  
  64. RETURN
  65.  
  66. //---------- Attack
  67. LABEL 5
  68.  
  69. SPEED 16
  70.  
  71. PLAY_SOUND 6
  72. SET_FRAME 0
  73. DIRECTION_TO_MYCHARA 7
  74. MOVE 18
  75.  
  76. REPEAT 2
  77.   INCR_FRAME
  78.   STOP 4
  79.   INCR_FRAME
  80.   STOP 4
  81. REPEAT_END
  82.  
  83. SHOOT 15
  84. STOP 3
  85. SHOOT 16
  86. STOP 3
  87. SHOOT 17
  88. STOP 3
  89.  
  90. SET_FRAME 1
  91. DIRECTION_REVERSE
  92. MOVE 18
  93.  
  94. RETURN 
  95.